
\begin{tikzpicture}[scale=2.7, ang/.style={mark angle={green}{3mm}{1}}]
  \clip (-1/2,-1/6) rectangle (1.3,1.7);
  \coordinate (A) at (0,0);
  \coordinate (B) at (1,0);
  \coordinate (C) at ($ (B)!1! -100:(A) $);
  \coordinate (D) at ($ (C)!1! -120:(B) $);
  \coordinate[label=above:$P$] (P) at (1/3, 5/4);
  \path[name path=circA] (A) circle[radius=1];
  \path[name path=circD] (D) circle[radius=1];
  \path[name intersections={of=circA and circD}]
    coordinate (E) at (intersection-2);
  \foreach \dot/\segl/\segr/\fillcolor in {
      P1/A/B/red,P2/B/C/orange,P3/C/D/green,P4/D/E/blue,P5/E/A/violet} {
    \coordinate (\dot) at ($ (\segl)!(P)!(\segr) $);
    \pic[ang] {right angle=P--\dot--\segl};
    \draw[blue] (P) -- (\dot);
    \draw[dashed] (\segr) -- (\dot) (\segl) -- (P);
    \fill[opafill=\fillcolor] (\segr) -- (P) -- (\segl) -- cycle;
  }
  \draw[thick] (A) -- (B) -- (C) -- (D) -- (E) -- cycle;
\end{tikzpicture}
